home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dba1286.arc / TESTCASE.SC < prev    next >
Encoding:
Text File  |  1986-11-04  |  630 b   |  28 lines
  1. ;------------------------------------ TestCase.SC
  2. ;--- Test SWITCH, CASE, OTHERWISE, and ENDSWITCH.
  3. CLEAR
  4. STYLE ATTRIBUTE 40
  5. @ 12,10
  6. ?? "Enter a number from 1 to 4, then press <-' : "
  7. ACCEPT "N" PICTURE "#" TO X
  8.  
  9. ;-------------------- Respond to entry.
  10. @ 15,10
  11. STYLE REVERSE, BLINK
  12. SWITCH
  13.      CASE X = 1 :
  14.           ?? "You entered a one"
  15.      CASE X = 2 :
  16.           ?? "You entered a two"
  17.      CASE X = 3 :
  18.           ?? "You entered a three"
  19.      CASE X = 4 :
  20.           ?? "You entered a four"
  21.      OTHERWISE  :
  22.           BEEP BEEP BEEP
  23.           ?? "I said from 1 to 4!"
  24. ENDSWITCH
  25. SLEEP 4000
  26. STYLE
  27.  
  28.